home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Info / For Developers / GhostScript 5.10 / MacGS-510 / files / gs_mac.ps < prev    next >
Text File  |  1997-11-17  |  4KB  |  177 lines
  1. %    Copyright (C) 1995, 1997 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18.  
  19. % executive is redefined so that .setinterpstate gets called.  This in
  20. % lets MacGS know what state the interpreter is in so it can
  21. % display the correct menus and various dialogs and cursors.
  22.  
  23. /.interpstateinput 2 def
  24. /.interpstaterun   4 def
  25. /.interpstatepause 8 def
  26.  
  27. /executive
  28.     { { prompt
  29.         .interpstateinput .setinterpstate
  30.          { (%statementedit) (r) file } stopped
  31.          { pop pop $error /errorname get /undefinedfilename eq
  32.         { exit } if        % EOF
  33.            handleerror null        % ioerror??
  34.          }
  35.         if
  36.         .interpstaterun .setinterpstate
  37.         cvx execute
  38.       } loop
  39.     } odef
  40.  
  41. /.confirm
  42.     { pop } bind def
  43.  
  44.  
  45. % .newwindow creates a new output device for the Mac
  46.  
  47. /.newwindow    % hwres pagesize BitsPerPixel GraphicsAlphaBits TextAlphaBits title visible -> -
  48.     {
  49.         mark 8 1 roll
  50.         /HWResolution 8 1 roll
  51.         /PageSize 7 1 roll
  52.         /BitsPerPixel 6 1 roll
  53.         /TextAlphaBits 5 1 roll
  54.         /GraphicsAlphaBits 4 1 roll
  55.         /GSTitle 3 1 roll
  56.         /GSVisible exch
  57.         currentdevice copydevice
  58.         putdeviceprops
  59.         setdevice
  60.     } def
  61.  
  62. % .newfile creates a output file for an arbitrary device
  63.  
  64. /.newfile    % hwres pagesize outputfile -> -
  65.     {
  66.         mark 4 1 roll
  67.         /HWResolution 4 1 roll
  68.         /PageSize 3 1 roll
  69.         /OutputFile exch
  70.         currentdevice
  71.         putdeviceprops
  72.         pop
  73.     } def
  74.  
  75. % .closefile closes a file by setting the output file to be a dash
  76.  
  77. /.closefile    % --
  78.     { mark /OutputFile (-) currentdevice putdeviceprops pop } def
  79.  
  80. % .beginjob and .endjob are used to 'wrap' rendering of files
  81. % so that one file can't corrupt the VM state for another.
  82. % Both procedures assume one value on the stack which they
  83. % preserve.
  84.  
  85. % This pair does the full save and restore of the VM environment
  86. % What was on the operand and dictionary stacks before the .beginjob
  87. % will be restored after the .endjob.
  88.  
  89. % /.beginjob            % |- old...stack proc -> proc
  90. %     { save
  91. %         5 dict dup
  92. %         serverdict /.jobinfo 3 2 roll put
  93. %         begin
  94. %             /saveid exch def
  95. %             /proc exch def
  96. %               count array astore /ostack exch def
  97. %               /proc load
  98. %           end
  99. %           serverdict /.jobinfo get
  100. %           /dstack countdictstack array dictstack put
  101. %     } def
  102. % 
  103. % /.endjob            % |- junk...stack result -> old...stack result
  104. %     {
  105. %         serverdict /.jobinfo known {
  106. %             cleardictstack
  107. %     
  108. %             serverdict /.jobinfo get begin
  109. %                 /result exch def
  110. %                 clear ostack aload pop
  111. %                 result
  112. %                 saveid
  113. %                 dstack
  114. %             end
  115. %             dup length 1 sub countdictstack exch 1 exch
  116. %             { 1 index exch get begin } for
  117. %             pop
  118. %         restore
  119. %         } if
  120. %     } def
  121.  
  122. % This pair just does a save and restore.  It cleans out
  123. % the operand and dictionay stack both before and after.
  124.  
  125. % /.beginjob        % |- ... proc -> proc
  126. %     {
  127. %         count 1 roll
  128. %         count 1 sub { pop } repeat
  129. %         cleardictstack
  130. %         save
  131. %         serverdict /.jobinfo 3 2 roll put
  132. %     } def
  133. %     
  134. % /.endjob        % |- ... result -> result
  135. %     {
  136. %         count 1 roll
  137. %         count 1 sub { pop } repeat
  138. %         cleardictstack
  139. %         serverdict /.jobinfo get
  140. %         restore
  141. %     } def
  142.  
  143.  
  144. % This pair does no job saving what so ever.
  145.  
  146. /.beginjob { } def
  147. /.endjob { } def
  148.  
  149.  
  150. % .runjob is called from the application when you open a file
  151.  
  152. /.runjob        % proc -> -
  153.     {
  154.         .beginjob
  155.             stopped
  156.         .endjob
  157.         { stop } if
  158.     } def
  159.  
  160.  
  161. % our way of handling user interrupts
  162.  
  163. errordict begin
  164.   /interrupt {
  165.                       % do the normal errorhandler, but ignore its stop
  166.       /interrupt dup
  167.       systemdict /.errorhandler get stopped pop
  168.       .clearerror        % so stacks don't get printed
  169.       
  170.       (\nInterrupted by user.\n) print
  171.                     % tell the user
  172.     stop            % propigate the interrupt
  173.   } bind def
  174. end
  175.  
  176.     
  177.